home *** CD-ROM | disk | FTP | other *** search
/ Macwelt 1 / Macwelt DVD 1.toast / Web-Publishing / HTML-Editoren / Alpha ƒ / Tcl / Modes / changeLogMode.tcl < prev    next >
Encoding:
Text File  |  2000-12-05  |  1.3 KB  |  43 lines
  1. #################################################################################
  2. # change log mode.
  3. # 
  4. # You should not remove this file.  Alpha may not function very well
  5. # without it.
  6. #================================================================================
  7.  
  8. alpha::mode Chng 0.1.3 source {Change*} {
  9. } {} help {
  10.     Chng mode is used for Alpha's "Changes" files, recording recent
  11.     changes made to the application or its Tcl libraries.  The help file
  12.     "Changes - AlphaTcl" is an example of such a file.  This mode has
  13.     its own marking scheme, and will colorize all lines with "=" red.
  14.  
  15.     This mode is not intended for text editing.
  16. }
  17.  
  18. newPref f wordWrap {1} Chng
  19. # '=' starts a comment, bullets are specially coloured,
  20. # and strings are green.
  21. regModeKeywords -e "=" -i "•" -s green Chng {}
  22.  
  23. namespace eval Chng {}
  24.  
  25. newPref f autoMark {0} Chng
  26.  
  27. proc Chng::MarkFile {} {
  28.     message "Marking..."
  29.     set pos  [minPos]
  30.     set markExpr {^(= )+[0-9]+(.)+[-\w+]}
  31.  
  32.     while {![catch {search -s -f 1 -r 1 -m 0 -i 1 $markExpr $pos} match]} {
  33.     set start [lindex $match 0]
  34.     set end   [nextLineStart $start]
  35.     regsub    {= } [getText $start $end] {} text
  36.     regsub    {released} $text {                   } text
  37.     set text  [string trimright [string range $text 0 20]]
  38.     setNamedMark $text $start $start $start
  39.     set pos $end
  40.     }
  41.     message ""
  42. }
  43.